home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / wordsing / pcw303d3 / workutil.bat < prev   
DOS Batch File  |  1990-11-08  |  5KB  |  166 lines
  1. getyn Do you use Windows, DesqView, or any program using PIF files?
  2. if errorlevel 1 copy ed.pif %t%ed.pif
  3. getyn ε %t%menuprt.exe
  4. if not errorlevel 1 goto a
  5. getyn Your file MENUPRT.EXE is obsolete; delete it? Type Y if unsure.
  6. if errorlevel 1 del %t%menuprt.exe
  7. :a
  8. getyn Do you want to copy the 3 printer test files? Type Y if unsure.
  9. if not errorlevel 1 goto b
  10. copy justify.tst %t%justify.tst
  11. copy chars.tst %t%chars.tst
  12. copy print.tst %t%print.tst
  13. :b
  14. echo .
  15. getyn Do you want to create the Print Control File? Type Y if unsure.
  16. if not errorlevel 1 goto c
  17. getyn Do you have a laser printer? Type N if unsure.
  18. if errorlevel 1 goto d
  19. getyn Do you have an HP DeskJet with soft fonts?
  20. if errorlevel 1 copy deskdown.bat %t%deskdown.bat
  21. menuprt1 %t%pr.def
  22. if errorlevel 1 menuprt2 // %t%pr.def
  23. if errorlevel 1 menuprt3 // %t%pr.def
  24. if errorlevel 1 menuprt4 // %t%pr.def
  25. goto e
  26. :d
  27. getyn ≡H0
  28. if errorlevel 1 goto f
  29. getyn ≡W2
  30. if not errorlevel 1 goto f
  31. echo The PC-Write file, help file, and printer files won't fit
  32. getyn on one diskette. Insert Extra disk in drive %t%, type Y.
  33. if not errorlevel 1 goto z
  34. :f
  35. getyn Do you have an HP LaserJet (or compatible) with soft fonts?
  36. if not errorlevel 1 goto g
  37. copy hpdown.bat %t%hpdown.bat
  38. echo (you may want the PC-Write Font Selector Program)
  39. :g
  40. getyn Do you have a Quadram QuadLaser and soft fonts?
  41. if errorlevel 1 copy quaddown.bat %t%quaddown.bat
  42. getyn Do you have any printer using Adobe PostScript?
  43. if not errorlevel 1 goto h
  44. copy psdown.ini %t%pr.ini
  45. copy psdown.fin %t%pr.fin
  46. :h
  47. menulaz1 %t%pr.def
  48. if errorlevel 1 menulaz2 // %t%pr.def
  49. :e
  50. getyn ≡M0
  51. if errorlevel 1 goto c
  52. echo  .X:10 >> %t%pr.def
  53. echo  .XT:6 >> %t%pr.def
  54. echo  .XB:6 >> %t%pr.def
  55. :c
  56. rem getyn Do you want the "£" size to print using code 35 ('#')?
  57. rem if errorlevel 1 echo $156=35 >> %t%pr.def
  58. echo .
  59. getyn Do you want to use a "mouse" with PC-Write? Type N if unsure.
  60. if not errorlevel 1 goto i
  61. echo The mouse files will be copied. Consult the User's
  62. echo Guide or Quick Guide for complete setup directions.
  63. getyn Do you have a Mouse Systems mouse?
  64. if not errorlevel 1 goto j
  65. copy msysmice.msc %t%msysmice.msc
  66. copy msysmice.com %t%msysmice.com
  67. :j
  68. getyn Do you have a LogiTech mouse?
  69. if not errorlevel 1 goto k
  70. copy logimice.def %t%logimice.def
  71. copy logimice.mnu %t%logimice.mnu
  72. :k
  73. getyn Do you have a Microsoft mouse?
  74. if not errorlevel 1 goto l
  75. copy micsmice.def %t%micsmice.def
  76. copy micsmice.com %t%micsmice.com
  77. copy micsmice.mnu %t%micsmice.mnu
  78. echo &J:8 >> %t%ed.def
  79. :l
  80. :i
  81. getyn ≡B0
  82. if errorlevel 1 goto m
  83. getyn Insert blank disk for Utility Disk backup in drive %d%, type Y.
  84. if not errorlevel 1 goto m
  85. echo on
  86. copy *.* %d%
  87. echo off
  88. :m
  89. :p
  90. if exist words.mas goto n
  91. getyn Do you have a copy of the PC-Write Reference diskette?
  92. if errorlevel 1 goto o
  93. echo Without a reference diskette, you can't check spelling,
  94. echo or print the on-disk Tutorial or Quick Guide.
  95. echo However, you can do normal editing, and basic printing.
  96. goto z
  97. :o
  98. getyn Insert PC-Write Reference diskette in default drive, type Y.
  99. if not errorlevel 1 goto z
  100. goto p
  101. :n
  102. echo .
  103. getyn ≡B3
  104. if not errorlevel 1 goto q
  105. getyn Insert blank disk for Reference Disk backup in drive %d%, type Y.
  106. if not errorlevel 1 goto q
  107. echo on
  108. copy *.* %d%
  109. echo off
  110. :q
  111. echo The master word list is a large (110 KB) file used to check spelling.
  112. echo Your computer needs at least 448 KB to use this word list.
  113. getyn Do you want this word list?  Type Y if unsure.
  114. if not errorlevel 1 goto r
  115. getyn ≡W2
  116. if not errorlevel 1 goto s
  117. echo The PC-Write program and word list won't fit on one disk.
  118. getyn Insert your Extra disk in drive %t%, type Y.
  119. if not errorlevel 1 goto z
  120. :s
  121. copy words.mas %t%words.mas
  122. :r
  123. echo .
  124. echo There are smaller help files for beginners and advanced users.
  125. getyn Do you want either of these help files?  Type N if unsure.
  126. if not errorlevel 1 goto t
  127. getyn ≡H0
  128. if errorlevel 1 goto u
  129. echo You asked for the main help file earlier. If you get a small help
  130. getyn file, this main help won't be available. Is this ok?
  131. if not errorlevel 1 goto t
  132. :u
  133. getyn ≡W2
  134. if not errorlevel 1 goto v
  135. getyn Insert your Work Disk in drive %t%, type Y.
  136. if not errorlevel 1 goto z
  137. :v
  138. getyn Type Y to get beginner's help, or N to get advanced help
  139. if errorlevel 1 copy edbegin.hlp %t%ed.hlp
  140. if not errorlevel 1 copy edquick.hlp %t%ed.hlp
  141. :t
  142. echo .
  143. echo PC-Write Work Disk Is Now Complete
  144. echo .
  145. echo Leave the Reference disk in the default drive to
  146. echo   type and/or print the Tutorial and Quick Guide.
  147. echo Then place all original and backup diskettes in a safe place.
  148. set t=
  149. set d=
  150. set b=
  151. set w=
  152. set h=
  153. set m=
  154. getyn Do you want to type and/or print the Tutorial and Quick Guide?
  155. if not errorlevel 1 goto z
  156. echo Note: Type Ctl-C at any time to stop typing or printing.
  157. getyn Do you want to see them on your screen?
  158. if not errorlevel 1 goto w
  159. typeman
  160. :w
  161. getyn Do you want to print the Tutorial and Quick Guide?
  162. if not errorlevel 1 goto z
  163. getyn Is your printer ready, with 95 pages of paper?
  164. printman
  165. :z
  166.